Visual Basic Source Code/Visual Basic Source Code.iso/vbsource/verdll/about3.frm

Text File | 1994-10-15 | 6KB | 213 lines

VERSION 2.00
Begin Form About2
   BackColor       =   &H00FFFFFF&
   BorderStyle     =   3  'Fixed Double
   Caption         =   "About"
   ControlBox      =   0   'False
   FontBold        =   -1  'True
   FontItalic      =   -1  'True
   FontName        =   "MS Sans Serif"
   FontSize        =   8.25
   FontStrikethru  =   0   'False
   FontUnderline   =   0   'False
   ForeColor       =   &H00000000&
   Height          =   3615
   Icon            =   ABOUT3.FRX:0000
   Left            =   1395
   LinkMode        =   1  'Source
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3210
   ScaleWidth      =   5190
   Top             =   1500
   Width           =   5310
   Begin Timer Timer1
      Interval        =   2000
      Left            =   4680
      Top             =   1920
   End
   Begin CommandButton Command1
      Cancel          =   -1  'True
      Caption         =   "OK"
      Default         =   -1  'True
      Height          =   375
      Left            =   2040
      TabIndex        =   4
      Top             =   2640
      Width           =   1095
   End
   Begin Image Image3
      Height          =   480
      Left            =   0
      Picture         =   ABOUT3.FRX:0302
      Top             =   1200
      Width           =   480
   End
   Begin Label Lbl_InfoValues
      Height          =   615
      Left            =   3000
      TabIndex        =   6
      Top             =   1920
      Width           =   1410
   End
   Begin Label Label5
      Alignment       =   2  'Center
      Caption         =   "John De Palma on CompuServe 76076,571"
      Height          =   255
      Left            =   240
      TabIndex        =   5
      Top             =   1320
      Width           =   4695
   End
   Begin Image Image2
      Height          =   480
      Left            =   0
      Picture         =   ABOUT3.FRX:0604
      Top             =   600
      Width           =   480
   End
   Begin Image Image1
      Height          =   480
      Left            =   0
      Picture         =   ABOUT3.FRX:0906
      Top             =   0
      Width           =   480
   End
   Begin Line Line1
      X1              =   600
      X2              =   4800
      Y1              =   1800
      Y2              =   1800
   End
   Begin Label lbl_Title
      Alignment       =   2  'Center
      Caption         =   "Title"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "BodoniPoster"
      FontSize        =   22.5
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   615
      Left            =   720
      TabIndex        =   1
      Top             =   120
      Width           =   4095
   End
   Begin Label lbl_Version
      Alignment       =   2  'Center
      BackColor       =   &H00FFFFFF&
      BackStyle       =   0  'Transparent
      Caption         =   "Version  6.8.94"
      FontBold        =   -1  'True
      FontItalic      =   0   'False
      FontName        =   "MS Sans Serif"
      FontSize        =   13.5
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      ForeColor       =   &H00800000&
      Height          =   330
      Left            =   600
      TabIndex        =   0
      Top             =   720
      Width           =   4335
   End
   Begin Label Lbl_Info
      Height          =   615
      Left            =   720
      TabIndex        =   2
      Top             =   1920
      Width           =   1935
   End
   Begin Label Label4
      Alignment       =   2  'Center
      Caption         =   "LearnWare ⌐ 1994"
      Height          =   255
      Left            =   240
      TabIndex        =   3
      Top             =   1560
      Width           =   4935
   End
End
'this stuff from AboutBox of Iconwrks
DefInt A-Z
Declare Function GetFreeSpace Lib "Kernel" (ByVal wFlags) As Long
Declare Function GetWinFlags Lib "Kernel" () As Long
Const WF_STANDARD = &H10
Const WF_ENHANCED = &H20
Const WF_80x87 = &H400

Sub Command1_Click ()
    'Cancel About form
    About2.Visible = False
End Sub

Sub Command1_LostFocus ()
    About2.Visible = False
End Sub

Sub Form_Load ()
Dim WinFlags As Long
Dim Mode As String, Processor As String
Dim CRLF As String
CRLF = Chr$(13) + Chr$(10)

    WinFlags = GetWinFlags()
    If WinFlags And WF_ENHANCED Then
        Mode = "386 Enhanced Mode"
    Else
        Mode = "Standard Mode"
    End If

    Lbl_Info.Caption = Mode + CRLF + "Free Memory:" + CRLF + "Math Co-processor:"

    If WinFlags And WF_80x87 Then
        Processor = "Present"
    Else
        Processor = "None"
    End If

    Lbl_InfoValues.Caption = CRLF + Format$(GetFreeSpace(0) \ 1024) + " KB" + CRLF + Processor
    'Center form
    Left = (Screen.Width - Width) / 2
    Top = (Screen.Height - Height) / 2

    'Place three traffic lights
    Image1.Left = 0
    Image1.Top = 0
    Image2.Left = 0
    Image2.Top = 0
    Image3.Left = 0
    Image3.Top = 0

    'Make first icon visible
    Image1.Visible = True
    Image2.Visible = False
    Image3.Visible = False

    lbl_Title.Caption = "Picture Show"
    lbl_Version.Caption = "Version 6.13.94"
    Me.Caption = "About..."
End Sub

Sub Timer1_Timer ()

        If Image1.Visible = True Then
            Image1.Visible = False
            Image2.Visible = True
            Image3.Visible = False
        ElseIf Image2.Visible = True Then
            Image2.Visible = False
            Image3.Visible = True
            Image1.Visible = False
        ElseIf Image3.Visible = True Then
            Image1.Visible = True
            Image2.Visible = False
            Image3.Visible = False
        Else
        End If

End Sub